#!/usr/bin/perl

for (1 .. 60) {
my $note = .25 + $_/12;
my $file = sprintf('%03d', $_);
my $stuff = qq{
seconds .125

module shortout out
init out count 1

patch_oscil_cossegs(anon,env,,,,,8,,
	0,2,
	1,6,
	.125,16,
	0,16)

patch_oscil_cos(anon,osc,out:1,env_out,,$note,55,)
};

open NOTE, '>note.txt';
print NOTE $stuff;
close NOTE;

`./monosave note.txt notes/$file.wav\n`;
`play notes/$file.wav`;

}
